o 



o 



u 
o 



PAGE 1 DELETE SRQ DELETE PROGRAMS FROM SYSTEM DIRECTORY 

O .TITLE DELETE PROQRAMS FROM SYSTEM DIRECTORY O 

/7-27-71 

/DIGITAL EQUIPMENT CORPORATION? MAYNARQ* MASS, 
O /ED HILTON) 



O 01100 

707^44 
O 707b4& 

7075>'32 
707^61 

O 707i^72 

7B76W1 

000s6a 
O 700^12 

000!p14 

000S22 
O 000460 

00025^ 

000i;i0 

0['j07i'6 

«S0iJ40 

O 000!p33 

707764 
7077M2 

O 

91100 l!'J0t?14 

01101 100&60 

O 01102 707704 

01103 707/02 

01104 202062 
O 01105 130463 

01106 I00t?14 

01107 20206^ 
O ?niiej 100469 

01111 142031 

01112 1420>52 
O 01113 777771 

01114 042033 

O 

o 
o 
o 
o 

o 



/ 




,ABS 




.LOG 


1100 


DTCA5707543, 




DTXA=707544 




DTLA=707545 




DTRA = 707S>52 




DTEF=707561 




PTRB=707572 




DTDF = 7Ki7601 




UPREFX=560 




KRB5700312 




CRLFr5i4 




TYP0NE=522 




TSIXBTF460 




NAIT5253 




GETMON5120 




DIRECT5565 




SLlNKa756 




PSOP=-540 




LRQT6=§33 




EBA=707764 




EEM5707702 

/ 
START 4MS 




CRl,F 


JMS 


UPREFX 


EBA 




EEM 




LAC 


(STMSG^l 


JMS 


TS|XBT 


STii dMS 


CRLF 


LAC 


rtlTMbGBl*400000 


JMS 


TSfXBT 


OZM 


hU 


PZM 


B# 


LAW 


= 7 


DAC 


CARCNT# 


.EJECT 





o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 



PAGt 2 delete: SRC DEUTE PROGRAMS FROM SYSTEM DIRECTORY 



o 
o 



O 0X115 imrd'^i DEL,ETA v)MS WAIT ^ 

01116 5421364 SAD (203 

01117 630X20 JMP GETMON 

O 'm20 542065 SAD <377 /RUBQUT O 

01121 7410fc)M SKP 

01122 601132 JMP PEl,T,l _ 
O 0112^ 101/11 JMS P8PRSR O 

01124 2S2a33 UAC CARCNt 

011213 542066 SAO («7 " ^ 

O 01126 60111P JMP PEt,ETA O 

01127 342K67 TAD (ol, 

011.50 042033 DAC CARCNT 

O 01131 601115 4MP OEl,ETA 

/ 

01132 542070 OELTil SAD (23,5 /TERMINATOR, 4EFT JUSTIFY "A" AND "B" 

O 01133 601144 JMP QEkETB /AND CHECK DIRECTORY FOR A O 

01134 S02^^/l AND (77 ' /MATCHi THEN DElETE THE 

01135 101666 JMS DBPRSl, /PROGRAM ^ 
O 'AlX'ib 442^33 ISZ CARCNT O 

01137 601115 JHP DEUETA 

01140 202t^/2 lAC (WHAT''a,*400000 

O 01141 100460 JMS TSJXBT ' O 



KR8 

JMP ST,1 



O .EJECT 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 






o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



PAGE 



UEUETE SRC 



DEt,ETE PROGRAMS FROM SYSTEM PJRECTQRY 



01144 


100514 


01145 


442033 


01146 


751000 


01147 


601153 


01150 


101666 


01151 


442033 


011t)2 


6.01146 


011t?3 


111111 


011!J4 


S42042 


0111? ii 


202031 


ailb6 


74i2ya 


011IJ7 


6011^6 


01160 


2020/3 


01161 


042^37 


01162 


222037 


01163 


741200 


01164 


6014/5 


'ilXb3 


542t531 


01166 


6011/3 


(51167 


202074 


01170 


342037 


01171 


042037 


01172 


601162 


01173 


442^337 


01174 


222^37 


01175 


542032 


01176 


6012!i'l 


01177 


202075 


0l2fci0 


6011/0 


01201 


777776 


S12K2 


342.037 


'AX2?yi 


042037 


01204 


101207 


01205 


101272 


01206 


601204 



DEIETB 



PEUETC 



OEIETD 



JMS 


CRUF 


ISZ 


CARCNT 


SKPiCUA 




vJHP 


1*4 


JMS 


QBPRSL 


ISZ 


CARCNT 


JMP 


, w4 


UAW 


n 


DAC 


FIRST» 


LAC 


A 


SNA 




JMP 


ST,1 


lAC 


(OIRECT 


DAC 


PIRPTR# 


UAC* 


PJRPTH 


SNA 




JMP 


NOTIND 


SAD 


A 


JMP 


DEI^ETO 


UAC 


(4 


TAD 


QIRPTR 


DAC 


oIrptr 


JMP 


oeXetq 


ISH 


QIRPTR 


l«ACl> 


OIRPTR 


SAD 


B ■ 


JMP 


,*3 


L,AC 


«3 


JMP 


D|i,ETP93 


/ 




LAW 


^2 


TAD 


DiRPTR 


DAC 


QIRPTR 


JMS 


CPYDJR 


JMS 


XFRPRe 


JMP 


,-^2 


.EJECT 





/CHARACTER COUNTER 
/NO, UEFT JUSTIFY 



GONE HERO? 



/NOTHING IN "A" THEREFORE JUST 

/A TERMINATOR WAS TYPED, START AGAJN, 

/DIRECTORY POINTER 

IS 81 UOCATIONS l,ONG, THERE 

CLEARED LOCATION AT THE END, 
DIRECTORY NO MATCH 



/DIRECTORY 
/MUST BE A 
/PONE WITH 



/MATCH NOW CHECK B 



/FUl,L MATCH 



O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
o 



u 

o 
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O 012fc)7 0000^0 CPYDIR O 



O 
O 
O 
O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



012fc)7 


;>;i!i00y0 


01210 


2^52037 


01211 


040B10 


01212 


040011 


01213 


220010 


31214 


042051 


0121^ 


220010 


01216 


042052 


01217 


220010 


01220 


042047 


01221 


220010 


01222 


042050 


01223 


220010 


01224 


741200 


01225 


601467 


01226 


042044 


01227 


220010 


01230 


042045 


01231 


220010 


01232 


042043 


01233 


220010 


01234 


042046 


01235 


442042 


01236 


601254 


01237 


202043 


01240 


7 4 0001 


01241 


342076 


01242 


342047 


01243 


042036 


0124 4 


202044 


01245 


060011 


31245 


202045 


01247 


060011 


01250 


440011 


01251 


202046 


01252 


060011 


01253 


601266 



LAC 


DJRPTR 


PAC 


10 


DAC 


11 


IAC« 


10 


DAC 


0LTITA# 


IAC<^ 


%^. 


DAC 


QLTITB# 


IAC<» 


i« 


DAC 


DLPBKN# 


t,AC» 


10 


DAC 


OLDWC# 


lACft 


1«? 


SNA 




JMP 


PONEA 


DAC 


NUTITA# 


IAC» 


10 


DAC 


nQtitb# 


L.AC» 


10 


DAC 


NUBKN» 


LAC« 


3,^ 


DAC 


Nywc# 


/ 




isz 


FIRST 


JMP 


CdPYil 


LAC 


NUBKN ' 


CM A 




TAD 


U) 


TAD 


OLDBKN 


DAC 


OIFF#" 


LAC 


nutita 


6ac<* 


11 . 


LAC 


NUTITB 


DAC» 


11 


ISE 


11 


LAC 


Nijwc 


DAC« 


11 


JMP 


till 


.EJECT 





o 
o 
o 



O ! 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



u 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



Page: 



!? 


delete: SRC 


012i?4 


202^)44 


0X255 


060^11 


vJX2^6 


2 Sii 2 fe) -H ;? 


012^7 


e!600.xi 


31260 


2t'2IM3 


01261 


a42036 


01262 


060(^11 


01263 


0^2^^7 


01264 


202046 


01265 


060011 


01266 


2021474 


01267 


:5420>57 


01270 


i•J42K^57 


01271 


621207 



DELETE PROGRAMS FROM SYSTEM OJRECTORY 



C0PY,1 


UAC 


NUTITA 




DAC* 


11 




UAC 


NUTlTtJ 




DAC<> 


11 




lAQ 


NIJBKN 




TAD 


DiPF 




DAC« 


11 




OAC 


OCOBKN 




LAC 


NUWC 




OAC» 


ii 


/ 






EXIT 


lAC 


{4J 




TAD 


OIRPTH 




DAC 


pIrptr 




.iMP« 


CPYDIR 




.EJECT 





o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



Page 



6 


DELETE 


SRC UEl^ETE PROGRAMS EHO 


01272 


000000 


XFRPRG 




01273 


2 2 4 .j 


DEUETE l„AC 


NUBKN 


012 74 


041622 


DAC 


BLKNUM 


0127!? 


202046 


UAC 


NUWC 


01276 


3420/7 


TAD 


(4000 


012/7 


740100 


SMA 




01300 


601347 


J MP 


PELETF 


01301 


042046 


DAC 


NUWC 


01302 


774000 


LAW 


*-4000 


01303 


041ipil 


DAC 


READ*? 


013M4 


04lt?3i 


DAC 


WRnE*2 


31305 


042034 


DAC 


CMPCNT# 


01306 


777766 


LAW 


■«3,2 


01307 


042041 


DAC 


ERRCNT# 


01310 


202100 


LAC 


(7777" 


01311 


041^^12 


DAC 


REAO+3 


01312 


041532 


DAC 


WHJTE+3 


01313 


040016 


DAC 


16 


01314 


101507 


JMS 


READ 


01315 


202047 


LAC 


OLDBKN 


01316 


041622 


DAC 
/ 

DELETG JMS 


B[,KNUH 


01317 


101^27 


WRITE 


01320 


202101 


LAC 


(1377/ 


013H1 


041512 


DAC 


re;ad*3 


01322 


040017 


DAC 


17 


01323 


101507 


JMS 


READ 


01324 


220016 


LAC« 


16 


0132i) 


560017 


SAD<* 


%X 


01326 


741000 


SKP 




01327 


601341 


JMP 


ERROR 


01330 


442034 


ISH 


CMPCNT 


01331 


601324 


JMP 


\n3 


01332 


202043 


LAC 


NUBKN 


01333 


342102 


TAP 


(10 


31334 


042043 


DAC 


NUBKN 


01335 


202047 


LAC 


OLDBKN 


31336 


342102 


TAP 


(10 


01337 


042047 


PAC 


OLOBKN 


01340 


6012/3 


JMP 
/ 
ERROR ISZ 


DELETE 


01341 


4 42041 


ERRCNT 


01342 


741000 


SKP 




01343 


601503 


JMP 


BADTAP 


01344 


202100 


LAC 


{7777' 


01345 


0400i6 


DAC 


16 


01346 


601317 


JMP 
.EJECT 


DEl,ETG 



PHOM SYSTEM DIRECTORY 



/NOW COMPARE WHAT WAS WRJTTEN ON 
/TAPE WITH THE BUFFER QN 10000 TO 
/13777, IF THEY DISAGREE, A WRITE 
/ERROR OCCURED, WRITE IT AGAIN 



/NOW MOVE TO NEXT EIGHT BLOCKS AND 
/MOVE THEMi 



/BADTAPEI CANIT WRITE RELIABLY, 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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DELKTE SRC 


01347 


342103 


013t?0 


^41511 


ai3tJl 


041531 


0131?2 


ii42034 


013tj3 


777766 


013bi4 


@4204&i 


0135>5 


202100 


013S6 


041512 


01357 


041532 


01363 


040016 


01361 


202^43 


^)1362 


041622 


01363 


101507 


01364 


20204 7 


01365 


«41622 


01366 


101527 


01367 


202101 


01370 


041512 


01371 


640017 


01372 


1015fc)7 


01373 


220016 


01374 


560^17 


01375 


7410^^ 


01376 


6ai4y2 


01377 


442034 


014$d0 


6013/3 


014131 


621272 


K14k)2 


442040 


01403 


7 41000 


01404 


6^51503 


01405 


2021W0 


014«6 


040016 


0140/ 


201511 


01410 


042034 


31411 


601366 



DELETE PROGRAHS FROM SYSTEM DIRECTORY 



QEIETF 



DELETH 



ERRORl 



TAD 


(-540^3^1 


DAC 


READ*2 


DAC 


WRITE*2 


DAC 


CMPCNT 


LAW 


"12 


OAC 


ERCNTff 


LAC 


Mm" 


OAC 


Rt;AD*3 


DAC 


WRn£*3 


DAC 


16 


LAC 


NUBKN 


DAC 


8LKNUM 


JMS 


READ 


LAC 


OLDBKN 


OAC 


BLKNUM 


JMS 


WRJTE' 


LAC 


(13777 


DAC 


READ*3 


DAC 


17 


JMS 


READ 


LAC« 


16 


SAD« 


%x 


SKP 




JMP 


ERRORl 


ISZ 


CMPCNT 


JMP 


i«5 


JHP« 

/ 

ISZ 


XFRPRG 


e;rcnt 


SKP 




JMP 


BADTAP 


LAC 


{7177' 


DAC 


16 


LAC 


READ*2 


DAC 


CMPCNT 


JMP 


DELETH 


.EJECT 





/LE;sS THAN TEN BLOCKS TO BE MOVlip, 



/GET TOTAL WORD COUNT FOR COMPARISON COUNTER 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
o 



PAGE OELtTE SRC QFXi'jE PROGRAMS FROM SYSTEM DIRECTORY 



O fn41i? 2£2Uy4 DONE l,AC <Si,jNKs3, /Cl^EAR UNKING TABLE O 

' " DAC ■ 17 



LAW "^57 

O 0i43,5 042040 DAC EKCNT 

D2M* 17 

ISZ ERCNT 

O 01420 601416 JMP t^2 

/ 

LAW ^12 

O 014^2 042041 DAC ERRCNT 



a 


DELETE SRC 


01412 


2£21iy4 


0141J 


4 0B17 


01414 


777741 


01415 


042040 


01416 


160017 


01417 


4 4 2K40 


01420 


601416 


01421 


777766 


01422 


042041 


B142i 


2021^5 


01424 


K41532 


01425 


7774fej0 


01426 


041531 


01427 


777522 


014C50 


041511 


01431 


2020;'6 


(<114 3 2 


041622 


01433 


1015^^7 


01434 


2021fc'0 


01435 


041512 


01436 


1015B7 


01437 


777610 


01440 


042040 


01441 


2fj2l06 


01442 


4P30i7 


01443 


2021«7 


01444 


040016 


01445 


220W16 


01446 


560017 


01447 


741fe)iiJB 


di^^B 


6015^8 


01451 


442040 


01452 


601445 


01453 


202110 


14 5 4 


100460 


01455 


1B0253 


01456 


542^64 


01457 


600120 


014 6 


542111 


014 61 


6Bllli'6 


31462 


542112 


01463 


600122 


01464 


760277 


01465 


100522 


01466 


601455 


31467 


777774 


01470 


2A2^65 


01471 


160011 


01472 


442K35 


014 7 3 


6^14/1 


01474 


601412 



o 
o 



O 01425 7774fej0 [,AW »400 

DAC NRnE + 2 

_ LAW «256 

O 01430 041511 DAC REAO*Z 

LAC U) 

DAC BLKNUM 

O 01433 1015^^7 JMS WRJTE 

LAC (7777 

DAC HeA0*3 

O 01436 1015B7 JMS READ 

LAW "170 

DAC ERCNT 

O 01441 202106 IhQ COJRECT^l 

■ '"'" DAC 1/ 



LAC (477 " /NOW WRITE THE DIRECTORY ON TAPE 

DAC WR|TE*3 /IN BLOCK ONE, 



LAC (1^064 

O 01444 040016 DAC 16 

LAC« 16 

SAD^ 17 
O 01447 741fe)iiJB SKP 

JMP DRCER /DIRECTORY COMPARE ERROR 

ISH ERCNT 

O 01452 601445 JHP ,^3 

LAC {ENDMb2sl*400000 

JMS TSIXBT 

O 01455 1B0253 DONE,! JMS WAIT 

SAD (203 

JMP GETMON 

O 01460 542111 SAD (331 

JMP St,l 

SAD (33,6 

O 01463 600122 JMP GETMON+2 

LAW 277 

JMS TYRONE 

O 01466 601455 JMP OONE,! 

/ 

DONEA LAW "^4 

O 01470 042K35 DAC CNTR# 

D^M* U 

ISZ CNTR 

O 01473 6^14/1 JMP ,s2 

JMP DONE 

O 
O 



O 
O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

c 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



PAGE 



DELETE SRC 



DEL,ETE PROGRAMS FHOM SYSTEM DIRECTORY 
, EJECT 



O 
O 

o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 
o 
o 
o 
o 
o 
o 
o 

c 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



PAGE Vfi 



DELETE SRq 



01475 


2^^2113 


014/6 


10046c;i 


014 7 7 


6011W6 


01500 


442041 


01501 


601414 


01502 


6015^'3 


31503 


202114 


01504 


lt;'0460 


01505 


700312 


01506 


600122 


01507 


060000 


01510 


10l5t?7 


01511 


00001^0 


01512 


00 00 (J 


01513 


7777/5 


01514 


042053 


01515 


201511 


01516 


040030 


01517 


201512 


01520 


040031 


K1521 


202115 


S1522 


101547 


01523 


741100 


01524 


601630 


91525 


707555 


01526 


62150/ 


01527 


000000 


01530 


10155/ 


P11531 


000000 


01532 


000000 


01533 


7777/5 


01534 


04205 7 


01535 


201531 


01536 


040030 


01537 


201532 


015 40 


040031 


2J1541 


202116 


01542 


101547 


01543 


741100 


31544 


601637 


01545 


707555 


01546 


621527 



NQTIND 



URGER 



BAPTAP 



READ 



WRITE 



TE PROGRAMS FROM SYSTEM DIRECTORY 


UAC 


(NQTINsi+400000 


UMS 


TSIXBT 


JMP 


Sf.l 


/ 




isz 


EKRCNT 


4MP 


D0NE*2 


JMP 

/ 

l,AC 


BAPTAP 


(WRERM^l+40000 


JMS 


TSJXBT 


KRB 




JMP 
/ 




GKTMON+2 




JMS 





SEARCH 




UAW 


r-6 


OAC 


REPERRJS' 


LAC 


READ*2 


DAC 


30 


LAC 


READ*3 


DAC 


^l 


LAC 


(013000 


JMS 


9P 


SPA 




JMP 


RPERR 


DTLA+10 




JMP^> " 


READ 


/ 









JMS 


SEARCH 












LAW 


•"3 


DAC 


WRTERB# 


LAC 


WRiTE+2 


DAC 


30 


LAC 


WRITE*3 


DAC 


31 


LAC 


(0150KI0 


JMS 


QP 


SPA 




JHP 


WTERR 


DTLA+10 




JMP» 


WRITE 


.EJECT 





o I 

O j 
O I 

I 
o ' 

o 

O ' 

I 

o 

I 

O j 

o 
o 
o ' 

o ! 

o 

1 

o 

o I 
o 



o 
o 
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O 01^47 oe0k)y0 GO 

DTXA 

DTEFIDTRB 
O 015^2 7I51Wi50 SKPiCLA 

JMPw GO 

DTDF 
O 01555 601551 JHP i''4 

JMP* GO 

/ 
O 01557 000000 SEARCH 

IS2 SEARCH 

KSH SEARCH 
O 01562 7777/5 L,AW "3 

DAC SKCERH# 

OTkA*l^ 
O 01565 1400V50 OHM " 3kJ O 

UAC (SRCH 

DAC 6% 
O 01570 202120 L,AC (061000 O 

SRQHA JHS GO 



SPA 

O 01573 601615 JHP SRCHB 

tAC SRCH 

AND (1777) 

O 01576 740^301 CMA 

TAD BEKNUM 



01547 


00 


01550 


707544 


01551 


7075/3 


01552 


751000 


01553 


621547 


01554 


707601 


01555 


601551 


01556 


621547 


01557 


000000 


31560 


441557 


01561 


441557 


01562 


7777/5 


01563 


042054 


01564 


707555 


01565 


140030 


01566 


202117 


S1567 


040031 


01570 


202120 


01571 


101547 


0157 2 


741100 


01573 


601615 


01574 


201623 


01575 


502062 


01576 


740001 


01577 


341622 


01600 


342121 


01601 


751100 


01602 


6015/1 


ai603 


202122 


0160 4 


101547 


01605 


741100 


01606 
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